home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t5.d64 / the great fred.c (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  4KB  |  167 lines
  1. 5 PRINT"C[147]"
  2. 6 POKE53281,1
  3. 7 GOSUB730
  4. 10 REM MIND READER
  5. 12 FORH=0TO5
  6. 13 PRINT
  7. 14 NEXTH
  8. 15 PRINTCHR$(30)
  9. 20 POKE53281,1
  10. 24 POKE53280,2
  11. 25 PRINTTAB(12)"ARE YOU READY",CHR$(13)
  12. 27 PRINT
  13. 28 PRINTTAB(14)"TO HAVE ME",CHR$(13)
  14. 30 PRINT
  15. 31 PRINTTAB(12)"READ YOUR MIND? "
  16. 32 PRINTCHR$(31):PRINT:PRINT:PRINT:PRINT:PRINT
  17. 33 PRINTTAB(8):PRINT" PRESS 'Y' OR 'N' [146]"
  18. 35 GETJ$:IFJ$=""GOTO35
  19. 40 IFJ$="Y"GOTO60
  20. 50 GOTO 7
  21. 60 SPEED=25:PRINTCHR$(19)
  22. 70 POKE53281,1:POKE53280,7:PRINTCHR$(147)
  23. 75 PRINT:PRINT:PRINT:PRINT
  24. 80 PRINTTAB(8)"MY NAME IS "
  25. 85 PRINTCHR$(28):PRINTTAB(8):PRINT:PRINT:PRINT
  26. 90 PRINTTAB(8):PRINT"'G R E A T   F R E D'":PRINT:PRINT:PRINT:PRINT:PRINTCHR$(31)
  27. 92 PRINTTAB(8)"     THE WORLD'S GREATEST   "
  28. 93 PRINTTAB(8)"     MIND READING COMPUTER  ":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  29. 95 PRINT:PRINTTAB(2):PRINT" PRESS ANY KEY TO CONTINUE [146]"
  30. 97 GETL$:IFL$=""THEN GOTO97
  31. 98 PRINTCHR$(31):PRINTCHR$(19):PRINTCHR$(147)
  32. 100 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  33. 102 PRINTCHR$(28):PRINTTAB(15);A$:PRINTCHR$(31):PRINTCHR$(13):PRINTTAB(5)
  34. 105 PRINT"YOU WILL NEED TO DO SOME MATH"
  35. 106 PRINT:PRINT:PRINT:PRINT
  36. 110 PRINTTAB(5)
  37. 112 PRINT" N O   C A L C U L A T O R S "
  38. 115 PRINT:PRINT:PRINT:PRINTTAB(12)"P L E A S E"
  39. 116 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT" PRESS ANY KEY TO CONTINUE [146]"
  40. 118 GETK$:IFK$=""THEN GOTO118
  41. 120 PRINTCHR$(147):PRINT:PRINT:PRINT:PRINTTAB(5)
  42. 130 X=INT(5*RND(1))+1:Y=X+X
  43. 140 Z=INT(10*RND(1))+1:ANS=X+Z
  44. 160 PRINT:PRINT:PRINT
  45. 170 PRINTTAB(5):PRINT"THINK OF A NUMBER":PRINTCHR$(13):PRINT
  46. 180 PRINTTAB(5):PRINT"BETWEEN 1 AND 10":PRINTCHR$(13):PRINT
  47. 210 PRINTTAB(5):PRINT"ADD THE NUMBER TO ITSELF"
  48. 220 GOSUB660:PRINT:PRINT
  49. 230 PRINTTAB(15)"ADD";Y
  50. 240 PRINT:GOSUB 660:PRINT:PRINT
  51. 250 PRINTTAB(8)"DIVIDE BY 2"
  52. 260 PRINT:GOSUB 660
  53. 262 PRINTTAB(5)" PRESS ANY KEY TO CONTINUE [146]"
  54. 263 GETM$:IFM$=""THENGOTO263
  55. 265 PRINTCHR$(147):PRINT:PRINT:PRINT
  56. 267 PRINTTAB(15)"SUBTRACT":PRINT:PRINT
  57. 268 PRINTTAB(5)"THE NUMBER YOU FIRST THOUGHT OF":PRINT:PRINT
  58. 269 PRINTTAB(8)"FROM THE NUMBER YOU HAVE NOW":PRINT:PRINT
  59. 280 PRINT:GOSUB660:PRINT:PRINT:PRINT
  60. 290 PRINTTAB(10)"ADD THE NUMBER";Z
  61. 295 PRINTCHR$(28):PRINT:PRINT:PRINT
  62. 300 GOSUB660:GOSUB660
  63. 310 PRINTTAB(5)"THE NUMBER YOU HAVE NOW IS ";ANS
  64. 312 PRINTCHR$(159):PRINT:PRINT:PRINT:PRINT
  65. 313 PRINTTAB(5)" PRESS ANY KEY TO CONTINUE [146]"
  66. 315 GETN$:IFN$=""THENGOTO315
  67. 317 PRINTCHR$(31)
  68. 320 GOSUB 660
  69. 330 INPUT"IS THIS THE RIGHT ANSWER? (Y/N) ";D$
  70. 340 PRINT
  71. 350 GOSUB 680
  72. 360 IF YES = 0 GOTO 426
  73. 370 FOR W=1TO12:PRINT CHR$(13):NEXT W
  74. 380 PRINT"      THE GREAT FRED IS NEVER WRONG"
  75. 390 PRINT:FORW=1TO7:PRINTCHR$(7):NEXTW
  76. 391 FORH=0TO3:PRINTCHR$(7):NEXTH
  77. 394 PRINTTAB(3)" IF YOU WOULD LIKE TO KNOW     [146]"
  78. 395 PRINTTAB(3)" WHY I AM CALLED FRED PRESS F7 [146]"
  79. 396 PRINTCHR$(7)
  80. 397 FORH=0TO3:PRINTCHR$(7):NEXTH
  81. 398 PRINTCHR$(30)
  82. 399 PRINTTAB(3)" TO CONTINUE PRESS ANY KEY [146]"
  83. 400 GETD$:IFD$=""THENGOTO400
  84. 401 IFD$=CHR$(136)THENGOTO850
  85. 410 (null) TO 7
  86. 420 GOSUB 660
  87. 425 PRINTTAB(10)"BECAUSE":PRINTCHR$(13):PRINTCHR$(7):PRINTCHR$(28)
  88. 426 PRINTTAB(8)"'THE GREAT FRED'":PRINTCHR$(7):PRINTCHR$(31)
  89. 427 PRINTTAB(8)"ALMOST NEVER":PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7)
  90. 428 PRINTTAB(8)"MAKES A MASTAKE OOPS!!":PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7)
  91. 429 POKE37,21:PRINTCHR$(7)
  92. 440 POKE 37,21:PRINT
  93. 445 PRINTTAB(8)"MAKES A MISTAKE":PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7)
  94. 450 PRINTTAB(8)"LET'S CHECK YOUR MATH":PRINTCHR$(7):PRINTCHR$(7):
  95. 460 GOSUB660
  96. 470 INPUT"WHAT NUMBER DID YOU THINK OF ";T
  97. 480 R=T+T
  98. 490 GOSUB 660
  99. 500 PRINT"NOW ";T;" ADDED TO ";T;" EQUALS ";R
  100. 510 S=R+Y
  101. 520 GOSUB 660
  102. 530 PRINTTAB(5)"I ASK YOU TO ADD ";Y;" AND "
  103. 532 PRINTTAB(8)R;" + ";Y;" = ";S
  104. 540 U = S/2
  105. 550 GOSUB 660
  106. 560 PRINT "I ASK YOU TO DIVIDE BY 2 AND "
  107. 570 PRINT S;"DIVIDED BY 2 EQUALS ";U
  108. 580 V=U-T
  109. 590 GOSUB 660
  110. 600 PRINT"I ASK YOU TO SUBTRACT THE NUMBER"
  111. 601 PRINT" YOU FIRST THOUGHT OF WHICH"
  112. 602 PRINT"   WAS";T;
  113. 610 PRINT" AND";U;" - ";T;" = ";V
  114. 620 Q=V+Z
  115. 630 GOSUB 660
  116. 640 PRINTTAB(8)"I ASK YOU TO ADD ";Z;" AND "
  117. 642 PRINTTAB(8)V;" + ";Z;" = ";Q
  118. 645 GOSUB 660;GOSUB 660
  119. 650 GOTO 370
  120. 660 FORI=1 TO 3000
  121. 662 NEXT I
  122. 664 PRINT CHR$(7)
  123. 670 RETURN
  124. 680 IF D$="Y"THEN YES=1:RETURN
  125. 690 IF D$="N"THEN YES=0:RETURN
  126. 700 PRINT"PRESS 'Y' OR 'N'   ";NORMAL:GOTO 330
  127. 710 END
  128. 730 PRINTCHR$(147)
  129. 740 FORP=0TO5:PRINTCHR$(7):NEXTP
  130. 750 PRINTCHR$(28):POKE53271,1:PRINTTAB(12)"THE GREAT FRED"
  131. 760 PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(31)
  132. 770 PRINTTAB(12)"BY GEORGE HILTON"
  133. 772 PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTTAB(12)
  134. 773 PRINTCHR$(156):PRINTCHR$(18)
  135. 774 PRINTTAB(1)" PRESS ANY KEY TO CONTINUE, F1 TO STOP [146]"
  136. 775 GETQ$:IFQ$=""THENGOTO775
  137. 776 PRINTCHR$(147):PRINTCHR$(31)
  138. 777 IFQ$=CHR$(133)THEN GOTO710
  139. 778 IFQ$=CHR$(139)THENGOTO975
  140. 780 POKE53280,9:POKE53281,1
  141. 785 PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTTAB(8)
  142. 790 PRINT"PLEASE INPUT YOUR NAME";CHR$(13)
  143. 795 PRINTTAB(8)"FOLLOWED BY A RETURN":PRINTCHR$(13):PRINTTAB(8)
  144. 796 INPUT A$
  145. 800 PRINTCHR$(147)
  146. 810 PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTTAB(8)
  147. 820 PRINT"HELLO ";A$:PRINTCHR$(13)
  148. 825 PRINTTAB(8)"MY NAME IS FRED":PRINTCHR$(13):PRINTCHR$(7)
  149. 830 PRINTTAB(8)"I AM PLEASED TO MEET YOU":PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7)
  150. 832 PRINTCHR$(7):PRINTCHR$(7):PRINTTAB(4)
  151. 834 PRINTCHR$(156):PRINT" PRESS ANY KEY TO CONTINUE  "
  152. 835 PRINTTAB(8)
  153. 836 GETC$:IFC$=""THEN GOTO836
  154. 840 PRINTCHR$(147):RETURN
  155. 850 POKE53280,9:POKE53281,1:PRINTCHR$(28)
  156. 860 PRINTCHR$(147):FORH=0TO3:PRINTCHR$(7):NEXTH
  157. 870 PRINTTAB(5)"F":PRINTCHR$(31):PRINTTAB(8)"SOMETIMES I AM FUNNY"
  158. 880 PRINTCHR$(7)
  159. 890 PRINTCHR$(28)
  160. 900 PRINTTAB(5)"R":PRINTCHR$(31):PRINTTAB(8)"OCCASIONALLY I AM REDICULOUS"
  161. 910 PRINTCHR$(7):PRINTCHR$(28)
  162. 920 PRINTTAB(5)"E D":PRINTCHR$(31):PRINTTAB(8)"ALWAYS I AM AN ELECTRONIC DEVICE"
  163. 930 FORH=0TO5:PRINTCHR$(7):NEXTH
  164. 960 PRINT" TO CONTINUE PRESS ANY KEY [146]"
  165. 970 GETD$:IFD$=""THENGOTO970
  166. 980 GOTO 7
  167.